home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / butt01.zip / MIS_LOGO.PRG < prev    next >
Text File  |  1993-01-04  |  2KB  |  59 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: MIS_LOGO.PRG
  4. *:
  5. *:         System: MIS Consulting
  6. *:         Author: Charles Alan Butler
  7. *:      Copyright (c) 1989, Charles Alan Butler
  8. *:  Last modified: 09/03/89      7:27
  9. *:
  10. *:      Called by: STARTPRG.PRG                  
  11. *:               : PAS.PRG                       
  12. *:
  13. *:      Documented 09/17/89 at 16:36                SNAP!  version 3.12f
  14. *:*********************************************************************
  15. SET STATUS OFF
  16. SET SCOREBOARD OFF
  17. SET COLOR TO N/B
  18. CLEAR
  19. c=REPL(CHR(15)+SPACE(20),4)
  20. @ 2,8 SAY c
  21. @ 6,18 SAY c
  22. @ 10,8 SAY c
  23. @ 14,18 SAY c
  24. @ 18,8 SAY c
  25. @ 22,18 SAY c
  26. @ 13,16,13,63 BOX CHR(223)
  27. @ 4,63,12,63 BOX CHR(219)
  28. @ 1,2 , 23,77 BOX CHR(219)
  29. @ 1,3 , 23,76 BOX CHR(219)
  30. SET COLOR TO N/R
  31. @ 0,0,24,79 BOX CHR(176)
  32. @ 0,1,24,78 BOX CHR(176)
  33. SET COLOR TO b+/BG
  34. @ 3,15 TO 12,62 CLEAR
  35. @ 3,16 TO 12,61 DOUBLE
  36.  
  37. SET COLOR TO b+/BG
  38.  
  39. @       5,20 SAY "▓▓▓▓▓▓▓▓▓▓▓▓▓▄  ▓▓▓▓▓▓▓▓▓▄  ▓▓▓▓▓▓▓▓▓▄ "
  40. @ ROW()+1,20 SAY "▓▓▓█▀▓▓▓█▀▓▓▓█   ▀▀▓▓▓█▀▀▀  ▓▓▓█▀▀▀▀▀▀ "
  41. @ ROW()+1,20 SAY "▓▓▓█ ▓▓▓█ ▓▓▓█     ▓▓▓█     ▓▓▓▓▓▓▓▓▓▄ "
  42. @ ROW()+1,20 SAY "▓▓▓█ ▓▓▓█ ▓▓▓█     ▓▓▓█       ▀▀▀▀▓▓▓█ "
  43. @ ROW()+1,20 SAY "▓▓▓█ ▓▓▓█ ▓▓▓█  ▓▓▓▓▓▓▓▓▓▄  ▓▓▓▓▓▓▓▓▓█ "
  44. @ ROW()+1,20 SAY " ▀▀▀  ▀▀▀  ▀▀▀   ▀▀▀▀▀▀▀▀▀   ▀▀▀▀▀▀▀▀▀ "
  45.  
  46. @ 11,26 SAY "   C O N S U L T I N G"
  47. SET COLOR TO BG+/B
  48. @ 15,28 SAY "2003 South 51st Street"
  49. @ ROW()+1,28 SAY "  Tampa, Fl.  33619"
  50. @ ROW()+1,28 SAY "    (813)247-5700"
  51. SET COLOR TO R*/B
  52. @ ROW()+2,30 SAY "(c) Copyright 1988"
  53. @ ROW()+1,30 SAY "All Rights Reserved"
  54. SET COLOR TO BG/N
  55.  
  56. RETURN      && End log_onq
  57.  
  58. *: EOF: MIS_LOGO.PRG
  59.